home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
EGYPTW.DIR
/
01717_Script_Farmer
< prev
next >
Wrap
Text File
|
1995-09-13
|
7KB
|
250 lines
global gQuest, gBeenClicked
on EFarmRollovers1
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if the mousecast = the castnum of sprite 7 then
repeat while the mousecast = the castnum of sprite 7 or rollover(8)
EgyptCursor
puppetsprite 8, true
set the locH of sprite 8 to 125
set the locV of sprite 8 to 347
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
set the locH of sprite 8 to 825
updatestage
repeat while gBeenClicked = 1
FarmingAnimate
end repeat
end if
end if
end repeat
set the locH of sprite 8 to 925
puppetsprite 8, false
updatestage
else
if rollover(9) then
repeat while rollover(9)
ArrowCursor
set the locH of sprite 10 to 409
set the locV of sprite 10 to 344
updatestage
end repeat
set the locH of sprite 10 to 909
updatestage
else
if rollover(11) then
repeat while rollover(11)
ArrowCursor
set the locH of sprite 12 to 368
set the locV of sprite 12 to 194
updatestage
end repeat
set the locH of sprite 12 to 968
updatestage
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on EFarmRollovers2
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(7) or rollover(8) then
repeat while rollover(7) or rollover(8)
EgyptCursor
puppetsprite 27, true
set the locH of sprite 27 to 553
set the locV of sprite 27 to 202
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
FarmingAnimate2
end repeat
end if
end if
end repeat
set the locH of sprite 27 to 953
puppetsprite 27, false
updatestage
else
if rollover(9) then
ArrowCursor
repeat while rollover(9)
set the locH of sprite 10 to 332
set the locV of sprite 10 to 170
updatestage
end repeat
set the locH of sprite 10 to 932
updatestage
else
if rollover(11) then
ArrowCursor
repeat while rollover(11)
set the locH of sprite 12 to 478
set the locV of sprite 12 to 322
updatestage
end repeat
set the locH of sprite 12 to 978
updatestage
else
if rollover(13) then
repeat while rollover(13)
ArrowCursor
set the locH of sprite 28 to 471
set the locV of sprite 28 to 147
updatestage
end repeat
set the locH of sprite 28 to 971
updatestage
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
-- else
-- ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on FarmingAnimate
ArrowCursor
set gAnimationcast1 = 1004
set gAnimationcast2 = 1001
set count = 0
puppetsound "SE260900.AIF"
updatestage
repeat while count < 4 and (the mouseUp)
set the castnum of sprite 2 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 2 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 2 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 2 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set count = count + 1
end repeat
set the castnum of sprite 2 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
updatestage
puppetsound 0
set gBeenClicked = 0
end
on FarmingAnimate2
ArrowCursor
set gAnimationcast1 = 1018
set gAnimationcast2 = 1023
set count = 0
puppetsound "SE260500.AIF"
updatestage
repeat while count < 3 and (the mouseUp)
set the castnum of sprite 7 = gAnimationcast1 + 1
set the castnum of sprite 8 = gAnimationcast2 + 1
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast1 + 2
set the castnum of sprite 8 = gAnimationcast2 + 2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast1 + 3
set the castnum of sprite 8 = gAnimationcast2 + 3
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast1 + 4
set the castnum of sprite 8 = gAnimationcast2 + 4
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast1 + 2
set the castnum of sprite 8 = gAnimationcast2 + 2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast1
set the castnum of sprite 8 = gAnimationcast2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set count = count + 1
end repeat
set the castnum of sprite 7 = gAnimationcast1
set the castnum of sprite 8 = gAnimationcast2
updatestage
set gBeenClicked = 0
end